* lisp/emacs-lisp/cl-macs.el (cl-do-all-symbols): Add doc string.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 993d4a2c4a076e1c8b9b0991e6883701e0476198..466e13b276c8957bb416a4f443db541ddbb9465e 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2012-11-03  Glenn Morris  <rgm@gnu.org>
+
+       * emacs-lisp/cl-macs.el (cl-do-all-symbols): Add doc string.
+
 2012-11-03  Eli Zaretskii  <eliz@gnu.org>
 
        * term/pc-win.el: Don't load term/internal from here.

diff --git a/lisp/emacs-lisp/cl-macs.el b/lisp/emacs-lisp/cl-macs.el
index a448973c1bb4b3c9ba58d0812e54c805f71332d6..e7a66ad1b1ae07395818ad379bb1bb967fb38f09 100644 (file)
--- a/lisp/emacs-lisp/cl-macs.el
+++ b/lisp/emacs-lisp/cl-macs.el
@@ -1579,6 +1579,9 @@ from OBARRAY.
 
 ;;;###autoload
 (defmacro cl-do-all-symbols (spec &rest body)
+  "Like `cl-do-symbols', but use the default obarray.
+
+\(fn (VAR [RESULT]) BODY...)"
   (declare (indent 1) (debug ((symbolp &optional form) cl-declarations body)))
   `(cl-do-symbols (,(car spec) nil ,(cadr spec)) ,@body))